00010	BEGIN "KIHEAR"
00020	DEFINE ⊂="COMMENT";
00030	⊂ To initiate the ADC and record an utterance in file LISTEN.TMP;
00040	DEFINE CR="'15",LF="'12",CRLF="CR&LF";
00050	
00060	REQUIRE "RECORD.REL[KI,ALS]" LOAD_MODULE;
00070	REQUIRE "IO.REL[X,ALS]" LIBRARY;
00080	REQUIRE "SUIO.REL[X,ALS]" LIBRARY;
00090	REQUIRE "LIB.REL[NET,NJM]" LIBRARY;
00100	EXTERNAL FORTRAN PROCEDURE FMAIN;
00110	INTEGER PP,CHAN1,EOF,BRCHR,COUNT; STRING READ,FILEN; BOOLEAN ER;
00120	INTEGER SEGNAM,CHAN3;
00130	LABEL PSTART;
00140	
00150	PSTART:
00155	CHAN3←3;
00160	OUTSTR("The program has started"&CRLF);
00161	  CLOSE(CHAN3); OPEN(CHAN3,"DSK",'10,2,0,0,0,EOF);
00162	  LOOKUP(CHAN3,"LISTEN.TMP[KI,ALS]",ER);
00166	  CLOSE(CHAN3); RENAME(CHAN3,"NULL.TMP",0,0); RELEASE(CHAN3);
00170	 START_CODE MOVE 0,['725005000004];  '047000400110 ; END;
00180	⊂ This sounds the beep for 1 second with immediate return, so that
00190	  the ADC can be called before the speaker starts;
00200	OUTSTR("The beep should be sounding for 1 second now"&CRLF);
00210	
00220	⊂ Get segment name and detach;
00230	 START_CODE JFCL; '047000400037; MOVEM 0,SEGNAM; '047040400017; END;
00240	
00250	 FMAIN;
00260	
00270	START_CODE MOVE 0,SEGNAM; '047000400016; JFCL; END;
00280	⊂ Reattach segment so exit will be in order;
00290	OUTSTR("SEGNAM in octal  is "&CVOS(SEGNAM)&CRLF);
00300	OUTSTR("FMAIN has been called at this point"&CRLF);
00305	 START_CODE MOVE 0,['725005000004];  '047000400110 ; END;
00310	 CALL(0,"EXIT");
00320	
00330	END "KIHEAR";